home *** CD-ROM | disk | FTP | other *** search
/ MacWorld: Hardware Guide 1994 / Macworld Interactive - Hardware Guide 1994 (PDO).iso / Demos / Aldus® SuperPaint / Aldus SuperPaint 3.0 Trial Size / Aldus SuperPaint 3.0 Trial Size.rsrc / TEXT_250.txt < prev    next >
Text File  |  1993-03-24  |  2KB  |  20 lines
  1. % P2-v16 - Copyright 1991 Silicon Beach Software, Inc.
  2. userdict/md known{currentdict md eq}{false}ifelse{bu}if currentdict/P2_d known not{/P2_b{P2_d
  3. begin}bind def/P2_d 33 dict def userdict/md known{currentdict md eq}{false}ifelse P2_b dup dup
  4. /mk exch def{md/pat known md/sg known md/gr known and and}{false}ifelse/pk exch def{md
  5. /setTxMode known}{false}ifelse/sk exch def mk{md/xl known}{false}ifelse/xk exch def/b{bind def}bind def/sa{matrix currentmatrix P2_tp
  6. concat aload pop}b/sb{matrix currentmatrix exch concat P2_tp matrix invertmatrix concat aload
  7. pop}b/se{matrix astore setmatrix}b/bb{gsave P2_tp concat newpath moveto}b/bc{curveto}b/bl
  8. {lineto}b/bx{closepath}b/bp{gsave eofill grestore}b/bf{scale 1 setlinewidth stroke}b/be
  9. {grestore}b/p{/gf false def}b p/g{/gf true def}b pk{/_pat/pat load def/_gr/gr load def}{/_gr
  10. {64.0 div setgray}b}ifelse sk{/_sTM/setTxMode load def}if/gx{/tg exch def}b 0 gx/x6{mk{av 68 gt
  11. {false}if}if}b/bps 8 string def/bpm[8 0 0 8 0 0]def/bpp{bps}def/obp{gsave setrgbcolor bps copy pop
  12. dup 0 get 8 div floor cvi 8 mul 1 index 2 get 8 div floor cvi 8 mul 2 index 1 get 8 div floor cvi 8 mul 
  13. 8 4 index 3 get 8 div floor cvi 8 mul{2 index 8 3 index{1 index gsave translate 8 8 scale 8 8 false bpm/bpp
  14. load imagemask grestore}for pop}for pop pop pop grestore}b end P2_b pk end{/pat{P2_b gf{end pop sg
  15. P2_b mk end{av 68 gt{pop}if}if}{/_pat load end exec}ifelse}bind def}{/pat{P2_b pop _gr end}bind
  16. def}ifelse P2_b sk end{/setTxMode{P2_b/_sTM load end exec P2_b tg dup 0 ge{/_gr load end exec}
  17. {pop end}ifelse}bind def}{/setTxMode{pop P2_b tg dup 0 ge{/_gr load end exec}{pop end}ifelse}bind
  18. def}ifelse P2_b xk end{P2_d/_xl/xl load put/xl{P2_b 2 copy P2_tp 4 get add P2_tp 4 3 -1 roll put
  19. P2_tp 5 get add P2_tp 5 3 -1 roll put/_xl load end exec}bind def}if}if
  20.